home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / GSXSAM.ZIP;1 / GETTXT.PRG < prev    next >
Encoding:
Text File  |  1993-08-09  |  1.4 KB  |  56 lines
  1. ***************************************************************************
  2. *
  3. * Procedure file: GETTXT.PRG
  4. *         System: GenScrnX
  5. *        Version: 1.0
  6. *         Author: Ken R. Levy
  7. *        Company: Jet Propulsion Laboratory
  8. *      Copyright: None (Public Domain)
  9. *
  10. ***************************************************************************
  11. *
  12. * GETTXT - Get Text.
  13. *
  14. * Description:
  15. * This program is used as an optional driver for use with GENSCRNX.PRG.
  16. *
  17. * Features:
  18. * Prompts for text string.
  19. *
  20. * Notes:
  21. * In this program, for clarity/readability reasons, variable names
  22. * are used that are longer than 10 characters.  Note, however, that only
  23. * the first 10 characters are significant.
  24. *
  25. * Important:
  26. * All function calls made from this program are contained in GENSCRNX.PRG.
  27. * Variable names not declared PRIVATE in this program defined PRIVATE in
  28. * GENSCRNX.PRG.
  29. *
  30. PARAMETERS m.say_str
  31. PRIVATE m.say_str,m.code,m.setcursor
  32.  
  33. * Check for driver disable mode.
  34. IF OBJTYPE=1.AND..NOT.drvenable(PROGRAM())
  35.   GOTO BOTTOM
  36.   RETURN .F.
  37. ENDIF
  38.  
  39. m.setcursor=SET('CURSOR')
  40. IF EMPTY(m.say_str)
  41.   m.say_str=''
  42. ENDIF
  43. m.code=SPACE(255)
  44. @ 1,0 CLEAR TO 1,WCOLS()
  45. @ 1,2 SAY m.say_str;
  46.       GET m.code PICTURE '@S'+ALLTRIM(STR(50-LEN(m.say_str),3))
  47. SET CURSOR ON
  48. READ TIMEOUT 15
  49. IF m.setcursor=='ON'
  50.   SET CURSOR ON
  51. ELSE
  52.   SET CURSOR OFF
  53. ENDIF
  54. @ 1,0 CLEAR TO 1,WCOLS()
  55. RETURN ALLTRIM(m.code)
  56.